unit Class_Demo;

interface
uses
  System.SysUtils,System.Classes;

type
  TDemo=class(TObject)
  private
    FDemoCode:string;
    FDemoName:string;
  published
    property DemoCode:string read FDemoCode write FDemoCode;
    property DemoName:string read FDemoName write FDemoName;
  public
    function ToBase64:string;
  end;

implementation

{ TDemo }

function TDemo.ToBase64: string;
begin

end;

end.
